﻿Public Class _Default
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub

    Protected Sub btn_Result_Click(sender As Object, e As EventArgs) Handles btn_Result.Click
        lbl_Result.Text = getResult(tb_FirstNumber.Text, tb_SecondNumber.Text)
    End Sub

    Private Function getResult(ByVal firstNumberStr As String, ByVal secondNumberStr As String) As String
        Dim firstNumber, secondNumber As Single
        firstNumber = CSng(tb_FirstNumber.Text)
        secondNumber = CSng(tb_SecondNumber.Text)
        Dim result As Single
        result = firstNumber + secondNumber
        Return CStr(result)
    End Function
End Class
